# 1 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD"
;zg_pi_CPD
;user-version (06.10.2014)
;1D sequence
;probe background suppression with decoupling
;a weak 2-5% gradient may also be added after the pi pulse
;the delay between P2 & P1 is fixed at 0.5 ms now - optimizing is possible here
;$CLASS=HighRes
;$DIM=1D
;$TYPE=
;$SUBTYPE=
;$COMMENT=
;"d14 = 0.5ms"

# 1 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance3.incl
;   for AV III
;
;avance-version (13/06/17)
;
;$CLASS=HighRes Incl
;$COMMENT=

# 169 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avance.incl"
;$Id: Avance3.incl,v 1.9.8.3 2013/08/30 09:44:49 ber Exp $
# 14 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD" 2


"acqt0=-p1*2/3.1416"
"p2=2*p1"
"l1=0"
"l9=0"
"d11=30m"
# 1 "mc_line 22 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD exp. def. part of mc cmd. before ze"
define delay MCWRK
define delay MCREST
"MCREST = 30m - 30m"
"MCWRK = 0.333333*30m"

    dccorr
# 22 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD"
# 22 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD"
1 ze
# 1 "mc_line 22 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD exp. def. of mc cmd. after ze"
# 23 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD"
	d11 pl12:f2

# 1 "mc_line 25 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD exp. start label for mc cmd."
2 MCWRK  * 2 do:f2
LBLF0, MCWRK 
  MCREST
# 26 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD"
	d1

"l9=2*((l1)%2)"
# 30 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD"
	1u iu1
	if "l9==0" goto lab3
	p2 ph1
	d14
	lab3, 4u
	p1 ph2
	go=2 ph31 cpd2:f2
# 1 "mc_line 37 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD exp. mc cmd. in line"
  MCWRK do:f2 wr #0
  MCWRK zd
  lo to LBLF0 times td0

  MCWRK
# 38 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/zg_pi_CPD"
exit

ph1=0
ph2=0 0 1 1 2 2 3 3
ph31=2 0 3 1 0 2 1 3

;pl1 : f1 channel - power level for pulse (default)
;pl12: f2 channel - power level for CPD/BB decoupling
;p1 : f1 channel - high power pulse
;p2 : f1 channel - Pi high power pulse
;d1 : relaxation delay; 1-5*T1
;l1 : loop counter 1
;l9 : loop counter 9
;d11: delay for disk I/O	[30 msec]
;d14 : Pi delay
;NS : 2*n, total number of scans: NS*TD0
;cpd2: f2 channel - 90 degree pulse for decoupling sequence
